(edit-kbd-macro): Reject empty cmd name.

diff --git a/lisp/edmacro.el b/lisp/edmacro.el
index 7f2d8d47fc04849b21911c6c55fba12f4e559e0b..35be9ba054d81504fce3d203fb03996c313cb1cb 100644 (file)
--- a/lisp/edmacro.el
+++ b/lisp/edmacro.el
@@ -112,6 +112,8 @@ With a prefix argument, format the macro in a more concise way."
             (setq cmd 'last-kbd-macro))
            ((eq cmd 'execute-extended-command)
             (setq cmd (read-command "Name of keyboard macro to edit: "))
+            (if (string-equal cmd "")
+                (error "No command name given"))
             (setq mac (symbol-function cmd)))
            ((eq cmd 'view-lossage)
             (setq mac (recent-keys))